home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb33711.lsp < prev    next >
Text File  |  1998-03-15  |  5KB  |  161 lines
  1. ;=============337.11 ENDANSCHLAG
  2.  
  3. (EAITDBL "0033711")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:33711V1 ( / P1 Wi)
  8.    (EAITDBL "0033711")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.      (EAITvari)
  11.      (EAITvars)
  12.      (setvar "ORTHOMODE" 0)
  13.      (EAITbpt nil nil nil)
  14.      (setq P1 (getpoint))
  15.      (if (= P1 nil)(setq P1 (EAITrpt)))
  16.      (setvar "OSMODE" 0)
  17.      (setvar "ORTHOMODE" 1)
  18.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  19.      (command EAITege (strcat EAITpfn "33711V1") P1 "" "" EAITofkei pause)
  20.  
  21.      (setq Wi (EAITbw))
  22.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 303)) 8) "" "" ""
  23.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  24.      )
  25.  
  26.      (EAITvarz2)
  27.      (princ)
  28.  
  29. );defun V1
  30.  
  31. (defun C:33711V2 ( / P1 Wi)
  32.    (EAITDBL "0033711")
  33.    (princ (strcat "\n\n" EAITbez1))
  34.      (EAITvari)
  35.      (EAITvars)
  36.      (setvar "ORTHOMODE" 0)
  37.      (EAITbpt nil nil nil)
  38.      (setq P1 (getpoint))
  39.      (if (= P1 nil)(setq P1 (EAITrpt)))
  40.      (setvar "OSMODE" 0)
  41.      (setvar "ORTHOMODE" 1)
  42.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  43.      (command EAITege (strcat EAITpfn "33711V2") P1 "" "" EAITofkei pause)
  44.  
  45.      (setq Wi (EAITbw))
  46.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 345)) 35) "" "" ""
  47.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  48.      )
  49.  
  50.      (EAITvarz2)
  51.      (princ)
  52.  
  53. );defun V2
  54.  
  55.  
  56. (defun C:33711V3 ( / P1 Wi)
  57.    (EAITDBL "0033711")
  58.    (princ (strcat "\n\n" EAITbez1))
  59.      (EAITvari)
  60.      (EAITvars)
  61.      (setvar "ORTHOMODE" 0)
  62.      (EAITbpt nil nil nil)
  63.      (setq P1 (getpoint))
  64.      (if (= P1 nil)(setq P1 (EAITrpt)))
  65.      (setvar "OSMODE" 0)
  66.      (setvar "ORTHOMODE" 1)
  67.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  68.      (command EAITege (strcat EAITpfn "33711V3") P1 "" "" EAITofkei pause)
  69.  
  70.      (setq Wi (EAITbw))
  71.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 195)) 35) "" "" ""
  72.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  73.      )
  74.  
  75.      (EAITvarz2)
  76.      (princ)
  77.  
  78. );defun V3
  79.  
  80.  
  81. (defun C:33711S1 ( / P1 Wi)
  82.    (EAITDBL "0033711")
  83.    (princ (strcat "\n\n" EAITbez1))
  84.      (EAITvari)
  85.      (EAITvars)
  86.      (setvar "ORTHOMODE" 0)
  87.      (EAITbpt nil nil nil)
  88.      (setq P1 (getpoint))
  89.      (if (= P1 nil)(setq P1 (EAITrpt)))
  90.      (setvar "OSMODE" 0)
  91.      (setvar "ORTHOMODE" 1)
  92.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  93.      (command EAITege (strcat EAITpfn "33711S1") P1 "" "" EAITofkei pause)
  94.  
  95.      (setq Wi (EAITbw))
  96.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 293)) 8) "" "" ""
  97.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  98.      )
  99.  
  100.      (EAITvarz2)
  101.      (princ)
  102.  
  103. );defun S1
  104.  
  105. (defun C:33711D1 (/ P1 P0 GName Wi)
  106.    (EAITDBL "0033711")
  107.    (princ (strcat "\n\n" EAITbez1))
  108.      (EAITvari)
  109.      (EAITvars)
  110.      (setvar "ORTHOMODE" 0)
  111.    (EAITbpt nil nil nil)(EAITmsg "mb_mld12" nil "023" ": ")  ;Einfügepunkt (Return = relativ) <END/PUN>: (N = in Nut):
  112.    (initget (EAITmg "mb_mld12" "024"))
  113.      (setq P1 (getpoint))
  114.      (cond ((= P1 nil)(setq P1 (EAITrpt) GName (strcat EAITpfn "33711D1")))
  115.            ((= P1 (EAITmg "mb_mld12" "024"))(setq P1 (EAIThal) GName (strcat EAITpfn "33711D1")))
  116.            (T (setq GName (strcat EAITpfn "33711D1")))
  117.      )
  118.      (setvar "OSMODE" 0)
  119.      (setvar "ORTHOMODE" 1)
  120.      (command EAITege GName P1 "" "" "")
  121.  
  122.      (setq Wi (EAITbw))
  123.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 355)) 8) "" "" ""
  124.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  125.      )
  126.  
  127.      (EAITvarz2)
  128.      (princ)
  129. );defun D1
  130.  
  131.  
  132. (defun C:33711D2 (/ P1 P0 GName Wi)
  133.    (EAITDBL "0033711")
  134.    (princ (strcat "\n\n" EAITbez1))
  135.      (EAITvari)
  136.      (EAITvars)
  137.      (setvar "ORTHOMODE" 0)
  138.    (EAITbpt nil nil nil)(EAITmsg "mb_mld12" nil "023" ": ")  ;Einfügepunkt (Return = relativ) <END/PUN>: (N = in Nut):
  139.    (initget (EAITmg "mb_mld12" "024"))
  140.      (setq P1 (getpoint))
  141.      (cond ((= P1 nil)(setq P1 (EAITrpt) GName (strcat EAITpfn "33711D2")))
  142.            ((= P1 (EAITmg "mb_mld12" "024"))(setq P1 (EAIThal) GName (strcat EAITpfn "33711D2")))
  143.            (T (setq GName (strcat EAITpfn "33711D2")))
  144.      )
  145.      (setvar "OSMODE" 0)
  146.      (setvar "ORTHOMODE" 1)
  147.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  148.      (command EAITege GName P1 "" "" EAITofkei pause)
  149.  
  150.      (setq Wi (EAITbw))
  151.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 355)) 31) "" "" ""
  152.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  153.      )
  154.  
  155.      (EAITvarz2)
  156.      (princ)
  157. );defun D2
  158.  
  159. (princ)
  160.  
  161.